home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / Setups / Setting Manually Channels next >
Text File  |  1998-10-26  |  583b  |  34 lines
  1. ;; Using virtual channels
  2. ;; Max channels: 256
  3.  
  4. (def-orchestra 'orchestra
  5.    all-instruments (piano synth bass)
  6. )
  7.  
  8. ; Here the channels are set up manually
  9.  
  10. (def-section sect-a
  11.    default
  12.       zone '(1/1)
  13.       tonality (activate-tonality (major c 4))
  14.       length '(1/16)
  15.       velocity '(64)
  16.       symbol '(a b c)
  17.    piano 
  18.       channel '(1 2 3) ; some channel and program scrolls
  19.       program '(1 3 5 6)
  20.    synth
  21.       channel 17       ; second port channel 1
  22.    bass
  23.       channel 33
  24. )
  25.  
  26. (midiport :printer)
  27.  
  28. (def-tempo 120)
  29.  
  30. (play-file-p "test"
  31.    all-instruments '(sect-a)
  32. )
  33.  
  34.